home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 207 / 207.d81 / b.kamikaze duck (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  65 lines
  1. 5 ifa=0thena=1:load"kamikaze.ml",8,1
  2. 10 gosub60100:clr
  3. 20 poke53280,.:poke53281,.
  4. 25 print"[147]             [158][203][193][205][201][203][193][218][197] [196][213][195][203]"
  5. 30 print"            [194]y [194]uck [195]hildress
  6. 40 [153]"          (NULL) cont- (NULL)lay (NULL)atn(NULL)right$(NULL)atn(NULL)val str$(NULL)len(NULL)"
  7. 50 [153]"          (NULL) cont- (NULL)uit"
  8. 60 [153]"          (NULL)ress (NULL) contor (NULL)cont."
  9. 70 a[178][194](203):[139]a[179][177]41[175]a[179][177]62[167]70
  10. 80 [139]a[178]41[167][158]49152:[137]20
  11. 90 [137]40000
  12. 9999 [128]
  13. 10000 d[178][194](186):n$[178]"b.kamikaze duck":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  14. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  15. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  16. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  17. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  18. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  19. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  20. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  21. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  22. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  23. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  24. 60000 [153]"on contatnre you sure you want to quit? ((NULL)cont/(NULL)cont)"
  25. 60010 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]60010
  26. 60020 [139]a[178]39[167][153]"on                                     on":[137]60
  27. 60030 [137]40000:[143]r0:hello connect=hello connect":input#15,er:close15
  28. 60040 ifer<>63thenend
  29. 60050 clr:load"hello connect",8
  30. 60100 pn$="[203][193][205][201][203][193][218][197] [196][213][195][203]":an$="[194][217]:  [194][213][195][203] [195][200][201][204][196][210][197][211][211]"
  31. 60110 bo=11:sc=15:cl=06:c1=12:c2=00:c3=12:c4=00:c5=00:c6=02:c7=09
  32. 60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
  33. 60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  34. 60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
  35. 60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  36. 60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
  37. 60190 poke646,c7:print""tab(20-len(an$)/2);an$
  38. 60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
  39. 60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
  40. 60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  41. 60230 poke646,c4:print" [165]                                  [167]"
  42. 60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  43. 60245 poke198,.:goto60360
  44. 60250 poke646,cl
  45. 60255 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  46. 60260 fora=1to3:gosub60470:next
  47. 60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  48. 60280 fora=1to16:gosub60470:next
  49. 60290 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  50. 60300 fora=1to3:gosub60470:next
  51. 60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
  52. 60320 poke53280,bo:poke53281,sc:goto60140
  53. 60360 print"";
  54. 60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
  55. 60380 fora=1to100
  56. 60390 geta$:ifa$=" "ora$="[160]"thenreturn
  57. 60400 next
  58. 60410 print"";
  59. 60420 print"[165]                                  [167]"
  60. 60430 fora=1to100
  61. 60440 geta$:ifa$=" "ora$="[160]"thenreturn
  62. 60450 next
  63. 60460 goto60360
  64. 60470 print" [161][146][161]":return
  65.